home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 12 / Mac Magazin and MacEasy Magazine CD - Issue 12.iso / Sharewarebibliothek / DFÜ / Joe's Pager™ (App) 1.55 / Joe's Pager™ (App) / Joe's Pager™ (App).rsrc / LENS_139_Groups < prev    next >
Text File  |  1995-01-20  |  3KB  |  119 lines
  1. ItemType: WIND
  2. Rect: 81,71,431,279
  3. Style: Dialog
  4. HasTitleBar: TRUE
  5. HasZoomBox: FALSE
  6. Name: Groups
  7. TextFont: Geneva
  8. TextSize: 9
  9. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue¬¬if objValue="Open" then ¬  ¬else if objValue="Close" then ¬  groupClose wdName¬else if objValue="Suspend" then ¬  ¬else if objValue="Resume" then ¬  ¬else if objValue="CloseBox" then ¬  ¬else if objValue="ZoomBox" then ¬  ¬else if objValue="GrowBox" then ¬  ¬else if objValue="TitleBar" then ¬  ¬end if¬¬--end windowEvent
  10. Params: i1_Text¬i3_Text¬i10_Text¬i11_Text¬i2_Text¬i3_Selection¬i12_Text
  11.  
  12. ItemType: LIST
  13. Rect: 11,17,141,115
  14. Name: Names
  15. DoubleClickItem: 4
  16. Text: 
  17. Balloon: A list of all names in your Names List
  18. Script: put wsGet(wdName,1,"selectionText") into selText¬if selText is not empty then¬  wsSet wdName,4,"disabled","false"¬  wsSet wdName,5,"disabled","true"¬else¬  wsSet wdName,4,"disabled","true"¬  wsSet wdName,5,"disabled","true"¬end if
  19.  
  20. ItemType: LIST
  21. Rect: 210,17,340,115
  22. Name: Members
  23. Logic: Single
  24. Text: 
  25. Balloon: A list of Members of this Group. Select names from the Names List and mov them into this group.
  26. Script: put wsGet(wdName,2,"selectionText") into selText¬if selText is not empty then¬  wsSet wdName,5,"disabled","false"¬  wsSet wdName,4,"disabled","true"¬else¬  wsSet wdName,4,"disabled","true"¬  wsSet wdName,5,"disabled","true"¬end if
  27.  
  28. ItemType: POP
  29. Rect: 249,117,268,130
  30. Name: popGroupNames
  31. TitleItem: 16
  32. Balloon: A pop–up listing of all Groups, by title
  33. Script: groupPop wdName
  34.  
  35. ItemType: PUSH
  36. Rect: 146,33,206,49
  37. AutoSize: FALSE
  38. Name: Copy ->
  39. Balloon: Moves a selected name from the Names List into a Group
  40. Script: groupCopy wdName
  41.  
  42. ItemType: PUSH
  43. Rect: 146,59,206,75
  44. AutoSize: FALSE
  45. Name: Remove
  46. Balloon: Removes a selected member from a Group
  47. Script: groupRemoveDisp wdName
  48.  
  49. ItemType: PUSH
  50. Rect: 182,134,262,150
  51. Name: New Group…
  52. Balloon: Creates a new Group. You will be asked to give the Group a title.
  53. Script: groupNew wdName
  54.  
  55. ItemType: PUSH
  56. Rect: 268,134,348,150
  57. AutoSize: FALSE
  58. Name: Re–title Group…
  59. Balloon: Asks you for the new title for a selected Group
  60. Script: groupRename wdName
  61.  
  62. ItemType: PUSH
  63. Rect: 182,159,262,175
  64. AutoSize: FALSE
  65. Name: Delete Group
  66. Balloon: Deletes an entire Group
  67. Script: groupRemove wdName
  68.  
  69. ItemType: PUSH
  70. Rect: 268,159,348,175
  71. AutoSize: FALSE
  72. Name: Save Group
  73. Balloon: Saves the displayed Members as a Group
  74. Script: put wsGet (wdName,12,"text") into recentMenu¬put line 1 of recentMenu into menuLine¬put line 2 of recentMenu into menuText¬groupSave wdName,menuLine,menuText,"false"
  75.  
  76. ItemType: TEXT
  77. Rect: 7,129,85,213
  78. Visible: FALSE
  79. Name: GroupBank
  80. Scrolling: TRUE
  81. Inset: 0
  82.  
  83. ItemType: TEXT
  84. Rect: 88,129,166,213
  85. Visible: FALSE
  86. Name: selFullNames
  87. Scrolling: TRUE
  88. Inset: 0
  89.  
  90. ItemType: TEXT
  91. Rect: 102,172,177,200
  92. Visible: FALSE
  93. Name: recentMenuLine
  94. LockText: FALSE
  95.  
  96. ItemType: PUSH
  97. Rect: 227,185,299,201
  98. Name: Done
  99. DefaultItem: TRUE
  100. CancelItem: TRUE
  101. AutoClose: TRUE
  102. Balloon: Closes this window
  103. Script: groupClose wdName
  104.  
  105. ItemType: TEXT
  106. Rect: 11,4,69,16
  107. TextStyle: Bold
  108. Text: All Names
  109.  
  110. ItemType: TEXT
  111. Rect: 210,4,312,16
  112. TextStyle: Bold
  113. Text: Members of Group
  114.  
  115. ItemType: TEXT
  116. Rect: 179,117,248,129
  117. TextStyle: Bold
  118. TextAlign: Right
  119. Text: Open Group: